perm filename DO.SAI[SCR,LCS] blob sn#456944 filedate 1979-07-10 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN 
C00003 ENDMK
C⊗;
BEGIN 
STRING File;
define  
	#  =	"'40",
	sp = 	"('40&null)",
	→  =	"'11",
	tab= 	"('11&null)",
	alt= 	"('175)",
	cr = 	"('15&null)",
	lf = 	"('12&null)",
	↓  = 	"(cr&lf)",
	pp  =    "('320)";
PRINT("File =");
File ← INCHWL;
PTOSTR(0,"R SCORE"&cr&File&cr&"11"&cr&"R MUS"&cr&File&cr&PP&"R SAMX"&cr&cr&cr&"Y"&cr);
END;